home *** CD-ROM | disk | FTP | other *** search
/ PCMania 73 / PCMania CD73_1.iso / pcmania / render73 / Foro / CASAS / JUGADOR.INC < prev    next >
Text File  |  1997-03-16  |  1KB  |  81 lines
  1. #declare A1=seed(54)
  2. #declare A2=seed(42)
  3. #declare a=0
  4.  
  5.  
  6. #declare madrid=object{
  7.  union{
  8.   object{
  9.    sphere{<0,0,0>, 5}
  10.    scale<1,1,1.5>
  11.    translate<-5,0,2.5>
  12.    pigment{rgb<0.1,0.1,0.1>}
  13.   }
  14.   object{
  15.    sphere{<0,0,0>, 5}
  16.    scale<1,1,1.5>
  17.    translate<5,0,2.5>
  18.    pigment{rgb<0.1,0.1,0.1>}
  19.   }
  20.   object{
  21.    sphere{<0,0,0>,3}
  22.    scale<1,4,1>
  23.    translate<-5,15,0>
  24.    pigment{rgb<0.7,0.4,0.4>}
  25.   }
  26.   object{
  27.    sphere{<0,0,0>,3}
  28.    scale<1,4,1>
  29.    translate<5,15,0>
  30.    pigment{rgb<0.7,0.4,0.4>}
  31.   }
  32.   object{
  33.    cylinder{<0,0,0><0,10,0>,5 }
  34.    pigment{rgb<1,1,1>}
  35.    translate<5,20,0>
  36.   }
  37.   object{
  38.    cylinder{<0,0,0><0,10,0>,5 }
  39.    pigment{rgb<1,1,1>}
  40.    translate<-5,20,0>
  41.   }
  42.   object{
  43.    cylinder{<0,29,0><0,50,0>,10}
  44.    pigment{rgb<1,1,1>}
  45.   }
  46.   object{
  47.    sphere{<0,58,0>,8}
  48.    pigment{rgb<0.8,0.5,0.5>}
  49.   }
  50.   object{
  51.    sphere{<0,0,0>,3}
  52.    pigment{rgb<0.8,0.5,0.5>}
  53.    scale<1,3,1>
  54.    translate<11,40,0>
  55.   }
  56.   object{
  57.    sphere{<0,0,0>,3}
  58.    pigment{rgb<0.8,0.5,0.5>}
  59.    scale<1,3,1>
  60.    translate<-11,40,0>
  61.   }
  62. }
  63. scale <0.04,0.04,0.04>
  64. }
  65.  
  66.  
  67. #while(a<17)
  68.  object{
  69.    madrid
  70.    translate<rand(A1)*200-100,3,rand(A2)*120-60>
  71.    rotate <0,A1+A2,0>
  72.  }
  73.  #declare a=a+1
  74.  #declare A1= A1*A1
  75.  #declare A2= A2*A2
  76. #end
  77.  
  78.  
  79.  
  80.  
  81.